package MyDB::Object;

use MyDB;

use base qw(Rose::DB::Object);





my $sql_stoprec = 'CREATE TABLE IF NOT EXISTS StopInsurRec (
    base_sn VARCHAR(16) NOT NULL,  -- 人员序列号
    stop_reason_code VARCHAR(3) NOT NULL, -- 中断参保原因
    stop_insur_time DATE NOT NULL,  -- 中断参保时间
    insur_type VARCHAR(40) NOT NULL,  -- 险种
    regist_time DATETIME NOT NULL,  -- 登记时间
    register VARCHAR(60) NOT NULL  -- 登记人
);';

my $sql_info_change = 'CREATE TABLE IF NOT EXISTS BaseInfoChangeRec (
    base_sn VARCHAR(16) NOT NULL, -- 人员序列号
    item VARCHAR(60) NOT NULL,  -- 变更事项
    before_value VARCHAR(60) NOT NULL,  -- 变更前值
    after_value VARCHAR(60) NOT NULL,  -- 变更后值
    regist_time DATETIME NOT NULL,  -- 登记时间
    register VARCHAR(60) NOT NULL  -- 登记人
);';

my $sql_retireinfo = 'CREATE TABLE IF NOT EXISTS RetireInfo (
    base_sn VARCHAR(16) NOT NULL,  -- 人员序列号
    retire_time DATE NOT NULL,  -- 退休时间
    retire_type_code VARCHAR(3) NOT NULL,  -- 退休类型代码
    work_time DATE NOT NULL,  -- 工作时间
    birth DATE NOT NULL,      -- 出生日期
    balance DECIMAL(12,2) NOT NULL,  -- 账户本息累计
    base_pension DECIMAL(12,2) NOT NULL  -- 养老金标准
);';





my $sql_retiretype = 'CREATE TABLE IF NOT EXISTS RetireType (
    code VARCHAR(3) PRIMARY KEY NOT NULL,  -- 退休类别码
    value VARCHAR(60) NOT NULL             -- 退休类别值
);';




sub init_db {
    my $db = MyDB->new;
    return $db;
}

sub init_tab {...}


1;
